home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / icon / packages.lha / packages / atari / ats.arc / TESTS.ARC / DIFFWRDS.DAT < prev    next >
Text File  |  1990-03-28  |  361b  |  13 lines
  1. procedure main()
  2.    local limit, s, i
  3.    limit := 100
  4.    s := set([])
  5.    every insert(s,1 to limit)
  6.    every member(s,i := 2 to limit) do
  7.       every delete(s,i + i to limit by i)
  8.    primes := sort(s)
  9.    write("There are ",*primes," primes in the first ",limit," integers.")
  10.    write("The primes are:")
  11.    every write(right(!primes,*limit + 1))
  12. end
  13.